
library(ggplot2)
mabasic = c(0.369081043585741,0.444203564652272,0.488167760516956,0.378205128205128,0.477193499334952,0.498942689272938,0.386981698742038,0.456938568301699,0.198294964937952,0.132031405010958,0.182634195523445,0.431114082841572,0.357660718324813,0.513863761656991,0.329543401261259,0.453771097894697)
basic=c(0.727235463682811,0.500540996396385,0.757114952760218,0.793873062694172,0.816697043693851,0.801282051282051,0.711688575068264,0.757114952760218,0.505328115364352,0.555748407330111,0.567455261566652,0.677432435611595,0.752008482979862,0.666163229197564,0.791577309413877,0.754305228497429)
minmax=c(0.596787900525747,0.220874041421962,0.584979941933024,0.441803892462358,0.490132715461948,0.431468397074983,0.537587883152287,0.305901721744272,0.138874349269168,0.164277968297226,0.174828486054782,0.419306664440635,0.328306250122799,0.468268524051594,0.637834155669328,0.521739461610310)
sigmf=c(0.406832547930308,0.256553797962801,0.453384935841877,0.551905338932380,0.453293655496301,0.556399798679619,0.576814997336721,0.340545526269578,0.261724255647532,0.220870947899702,0.115222293218969,0.339833306430675,0.400318558839772,0.597389089623925,0.485143563381156,0.450582648721199)
final=c(0.372527260800442,0.255756983095245,0.370564648251249,0.340260946106951,0.416084078743902,0.583352112796974,0.297128193111160,0.261707625628171,0.211821965979351,0.0545331383850368,0.148413962930308,0.169081753758733,0.571814330207189,0.658604257051321,0.539585241236486,0.400868350395547)
name=1:16
result=data.frame(name,'mabasic'=mabasic,'basic'=basic,'minmax'=minmax,'sigmf'=sigmf,'final'=final)
ggplot()+geom_line(aes(x=1:16,y=basic,color = 'basic'),size=2)+geom_line(aes(x=1:16,y=mabasic,color = 'mabasic'),size=2)+geom_line(aes(x=1:16,y=minmax,color = 'minmax'),size=2)+geom_line(aes(x=1:16,y=final,color='final'),size=2)+
  scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))

BY = rbind(c(0.833333333,0.833333333,0.782051282,0.782051282,0.75,0.775641026,0.833333333,0.756410256,0.782051282,0.807692308,0.730769231,0.807692308,0.782051282,0.833333333,0.782051282,0.756410256),
c(0.342578115,0.457964916,0.512820513,0.371678354,0.454861812,0.358974359,0.335089492,0.275700607,0.374985507,0.305393326,0.385146489,0.482358749,0.409871314,0.445260921,0.36281924,0.205530413),
c(0.849117357,0.8436857,0.850861955,0.811119373,0.851689775,0.849687054,0.790680684,0.70062747,0.858115963,0.845599026,0.83824049,0.833666096,0.763345479,0.814359071,0.733332928,0.685408184))
ggplot()+geom_line(aes(x=1:16,y=BY[1,],color = 'rbf'),size=2)+geom_line(aes(x=1:16,y=BY[2,],color='polynomial'),size=2)+geom_line(aes(x=1:16,y=BY[3,],color='mlp'),size=2)+scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))
SYtest = c(0.224358974358974,0.400568559092528,0.416666666666667,0.256410256410256,0.352564102564103,0.352564102564103,0.243279731498214,0.148906434941625,0.288461538461538,0.211821965979351,0.306195262535940,0.432026324611391,0.320512820512821,0.384615384615385,0.274737497017077,0.148906434941625)
ggplot()+geom_line(aes(x=1:16,y=SYtest),size=2)+  scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))

BY = rbind(c(0.750000000000000,0.807692307692308,0.730769230769231,0.782051282051282,0.782051282051282,0.807692307692308,0.730769230769231,0.756410256410256,0.807692307692308,0.782051282051282,0.807692307692308,0.807692307692308,0.756410256410256,0.807692307692308,0.807692307692308,0.807692307692308),
           c(0.111028686339140,0.306195262535940,0.486082170801734,0.349344481049275,0.327512154195406,0.492767631148309,0.350311891266241,0.381720655467859,0.403817167226755,0.464016876594987,0.372361564824413,0.434496948777531,0.416666666666667,0.458052446791267,0.509363484692718,0.384615384615385),
           c(0.602132907650708,0.761303767880320,0.801603078912978,0.798305929252035,0.831847727664526,0.820905825133676,0.832036349998727,0.851284749846074,0.808099221636861,0.829716979491277,0.827196841731802,0.803909269107549,0.855269722586662,0.878618019707345,0.830951381183455,0.849659671933927))
ggplot()+geom_line(aes(x=1:16,y=BY[1,],color = 'rbf'),size=2)+geom_line(aes(x=1:16,y=BY[2,],color='polynomial'),size=2)+geom_line(aes(x=1:16,y=BY[3,],color='mlp'),size=2)+scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))
SYtest = c(0.0545331383850368,0.180364200460488,0.448717948717949,0.288461538461538,0.224358974358974,0.416666666666667,0.274737497017077,0.306195262535940,0.288461538461538,0.416666666666667,0.256410256410256,0.370564648251249,0.352564102564103,0.400568559092528,0.448717948717949,0.224358974358974)
ggplot()+geom_line(aes(x=1:16,y=SYtest),size=2)+  scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))

BY = rbind(c(0.782051282051282,0.807692307692308,0.807692307692308,0.782051282051282,0.782051282051282,0.750000000000000,0.756410256410256,0.807692307692308,0.807692307692308,0.782051282051282,0.807692307692308,0.807692307692308,0.782051282051282,0.782051282051282,0.756410256410256,0.788461538461539),
           c(0.362373413863357,0.287451330585615,0.422779312292407,0.330915648344494,0.435631042665069,0.441373238753737,0.271918663485636,0.514775791485636,0.0705128205128205,0.0620699756525748,0.0985740101114448,0.454816901833604,0.448337246228370,0.520647304645708,0.375191695751119,0.466302021950450),
           c(0.803122608755798,0.731429657645515,0.794995630551796,0.849285467121955,0.874856809081856,0.837057273253371,0.800448181185715,0.842676547153551,0.436398349429376,0.517984122111471,0.516014572239202,0.723279278685189,0.817160443046894,0.833562017809858,0.827985034337927,0.827288921043292))
ggplot()+geom_line(aes(x=1:16,y=BY[1,],color = 'rbf'),size=2)+geom_line(aes(x=1:16,y=BY[2,],color='polynomial'),size=2)+geom_line(aes(x=1:16,y=BY[3,],color='mlp'),size=2)+scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))
SYtest = c(0.274737497017077,0.219046137529758,0.337653028054802,0.274737497017077,0.320512820512821,0.432026324611391,0.211821965979351,0.491779456828441,0.0641025641025641,0.0320512820512821,0.0859909039038996,0.461475754684143,0.384615384615385,0.446959369367048,0.274737497017077,0.337653028054802)
ggplot()+geom_line(aes(x=1:16,y=SYtest),size=2)+  scale_x_continuous(limits=c(1,16),breaks=seq(1,16,1))

#parameter
LR = read.csv('LR.csv')
ggplot()+geom_line(aes(x=seq(-4.5,20,by = 0.5),y=LR[,1],color = '1:2'),size=2)+geom_line(aes(x=seq(-4.5,20,by = 0.5),y=LR[,2],color = '1:3'),size=2)+
  geom_line(aes(x=seq(-4.5,20,by = 0.5),y=LR[,3],color = '1:4'),size=2)+geom_line(aes(x=seq(-4.5,20,by = 0.5),y=LR[,4],color = '1:5'),size=2)+
  scale_x_continuous(limits=c(-4.5,20),breaks=seq(-4.5,20,0.5))
LRs = read.csv('LRs.csv')
ggplot()+geom_line(aes(x=seq(-0.5,0,by = 0.025),y=LRs[,1],color = '1:2'),size=2)+geom_line(aes(x=seq(-0.5,0,by = 0.025),y=LRs[,2],color = '1:3'),size=2)+
  geom_line(aes(x=seq(-0.5,0,by = 0.025),y=LRs[,3],color = '1:4'),size=2)+geom_line(aes(x=seq(-0.5,0,by = 0.025),y=LRs[,4],color = '1:5'),size=2)+scale_x_continuous(limits=c(-0.5,0),breaks=seq(-0.5,0,by = 0.025))
